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MODULE ACHR DISP 

(ZTITLE oa ne check dispatcher’ 
IDENT = ‘'V04-000') = 

BEGIN 


' 
SRR R RARER EER AAA EAE AA AAA A AAA E EEE E RAE A ERE RAE E TAA AAREAEE AEA 


Ve 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

7? ALL RIGHTS RESERVED. 

'® roe SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corite 
'® ONLY IN ACCORDANCE WITH ERM F SUCH Tint os Bi THE 
'e INCLUSION OF a § eget COPYRIGHT NOTICE. THIS SOFT WARE OR OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ Cnppohat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 mmpsicacil OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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FACILITY: ERLRPT, Error Log Report Generator 
p Meteaees 
This module contains the machine check dispatching routine. 
{| ENVIRONMENT : 
VAX/VMS operating system, user mode. 
i AUTHOR: Sharon A. Reynolds, CREATION DATE: 10-Apr-1984 


| Modified by: 

v04-003 SARO0290 Sharon A, Reynolds 17-Jul-1984 
hanged the uey that option s referenced due to change 
n the way it is passed. 

v04-002 pane 56 Sharon A. Reynolds 25-apr-1984 
Put in check to determine whether to output Coat, 

v04-001 EAD0139 Elliott A. Brayton 12-Apr-1984 
Removed reference to LIB.REQ. 
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Machine check dispatcher bse ep-1984 AX-11 Bliss-32 V4.0-74 Page MEM 
$77} 882 3; 3}: i YENe | SRedmenK b39P B3e04 ° § 

3 5 1 REQUIRE ‘SRCS:ERFDEF.REQ' ; 0 
i. te 2 
: 60 45 1 MACRO 58 
$ 61 rt} 1 Cpu_fid = 0,24,8,0 % ; 5 
; ¢ 47 1 058 
3 6 rt: 1 FORWARD ROUTINE 059 
3 rt: rs } Mchk_dispatcher: Novalue ; 828, 
: 6 : 1 EXTERNAL ROUTINE 59! 
; a % Fretof, 59 
; 668 53 1 ern 59! 
; 9 54 1 Logger, bee 
; 0 55 1 Mc eck 722. 9; 
2 56 1 Mcheck_750, 828 
eee: 0357 1 Mcheck_780, 59' 
pS 0358 1 Mcheck_UV1 ; 060( 
3; | (76 $328 1 060° 
os ae 0360 1 EXTERNAL 0; 
: 76 0361 1 Emb: SBBLOCK PSECT (emb) ; 0. 
: 77 0362 #1 
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MCHK_DISP Machine check dispatcher 1-56 -1984 23:51:4 AX-11 Bliss-32 V4.0-74 Page 3 MEM! 
yOecObO . 12288-1382 $3234:23 AF SREIMCHK  S1SP. 83274 . (2) 
; 79 63 1 GLOBAL Routine MCHK_DISPATCHER (Lun,option) : NOVALUE = 
: 0 64 2 Begin 64) 
: 1 65 64! 
: ¢ 66 te4¢ Li 
3 6 ! 064" 
: 3 $3 Functional Description: 064! 
: 6 0 } This routine outputs the machine check header, then via the 9 
: 7 71 : gov type determines which cpu dependent routine to invoke and 065 
; Hey if nvokes the routine. 065; 
; 30 it ! Calling Sequence: 069: 
: 3 id: {  MCHK_DISPATCHER (Lun, option) 892: 
: Be f Input Parameters: 4 
; 1% 80 : Lun = logical unit number of output device. Fe 
: +44 tet Option = address of descriptor that contains the option. 066" 
: m4 0388 ! Output Parameters: aoe 
: 101 038s is None. 066: 
; 198 0 86 i Bee: 
s 7 bs leo 066. 
; 198 0389 OCAL 066! 
: 106 oie Cpu_type: REF SBBLOCK ; be 
108 92 2 Map bop: 
3 1% 8 it, Option: REF S$BBLOCK ; 067: 
: 111 95 Bind start_of_cpu_specific_stuff = embLemb$b_mc_sumcod] ; geet 
; 113 38 ! ( Ber 
3 3 38 Determine whether to output any text. 0671 
.. ae 00 2 if ..option(dsc$a_pointer) NEQ 'S' 7 
: 119 401 3 Then’ sal bea 
; 118 4 Return ; 
; 1% 40 
: 1 1 iss Force a top of form to occur, and output the entry header. 
: 1 5 4 FRCTOF (.lun) ; | 
: 124 oe HEADER (.lun) ; 
; : é % LOGGER (.lun,%ASCID "MACHINE CHECK") ; 
of 12! 9) 
; i 8 \g i Get the cpu type field from the system id register. : 
: 130 14 2 Cpu_type = emblemb$\_hd_sid) ; + 
: ! : tg Cpu_type = .cpu_typefcpu_fid] ; 9 
: 4 1 ' 9 
: 1 18 ' Determine if the cpu type is an 11/780 without the cpu field . 
s 9335 1 ! in the system id set. 


Machine check dispatcher 


tbesto-t9gs 25:51 
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: i d ’ it type EQLU 255 

3 -cpu e 

le : 4 § Then or 

; 4 4 ! Yes, call the 11/780 machine check module to output 
; re r 1 } the rest of the report. 

: 4¢ 4 6 MCHECK_780 (.lun,start_of_cpu_specific_stuff) ; 

; 148 " - Determine if th t i h lid If 

; ! Determine e cpu e is any other va type. a 
; 148 0 ' cpu type is found then’ call the cpu dependent sechine ch 
; re ° 1 ; moduie. 

; 169 7 5 Case .cpu_type from 1 to 7 of 

; e 

3 13 8 5 1]: MCHECK_780 (.lun,start_of_cpu_specific_stuff) ; 
; 138 04 ; C2]: MCHECK_750 (.lun,start_of_cpu_specific_stuff) ; 
; 123 o4e4 [3]: MCHECK_72Z (.lun,start_of_cpu_specific_stuff) ; 
: 139 ‘re C7]: MCHECK_UV1 (.lun,start_of_cpu_specific_stuff) ; 
: 159 gees CINRANGEJ: Return ; 

: 160 44 Tes ; 

; «161 0445 

: 162 0446 1 End ; ! Routine 


- TITLE 
- IDENT 


»PSECT 


00 00 48 43 45 48 43 ASCII 


~ LONG 
«ADDRESS 
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00000053 : 4 


53 04 =A 
000000006 00 
000000006 00 
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MCHK_DISP Machine check dispatcher 
\v04=000\ 


SPLIT,NOWRT,NOEXE, PIC,2 
\MACHINE CHECK\<0><0><0> 
17694733 

P.AAB 

FRCTOF, HEADER, Locger 
mene cK 2is. MCHECK_750 
MCHECK_780, MCHECK_UV1 
EMB 

SCODE,NOWRT, PIC,2 


CHK DISPATCHER, Save R2,R3,R4,R5 

MCHECK_780, R 

START Wf hgsctenche nga R4 
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OPTION, 
94 (RO 3 


LUN, R3 
#1, FRCTOF 
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#1, HEADER 
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a 
MCHK_DISP Machine check dispatcher 15-5 Sep-1984 :4 AX-11 Bliss-32 V4.0-742 P MEM 
yoe~000 . 1a-8ob7 4982 $3:3):03 HERE SeBSnBK EE Yb -8559 age 33 
00000000' or i PUSHAB P, AAA : 0409 PRO 
000000006 ‘8 CALLS 2, LOGGER ; 
B§ AS 8k p00e MOVZBL phe, cP Tyee) PU_TYPE ; iE 0 
OOO00OFF BF p CPL PU_TYPE ma 2 + 0421 1 
88 PUSHR #*M<R3,R + 0426 5 
5 FB § CALLS 2. “ReuiecK 780 ; 4 
0031 96 H - | TR 58 Aa _— 
$028 88 1 88 j FA ; r $- i : 
$-2$.- ; ENT 
$-2$.- : 
$-2$,- é 
6$-2$ : 
18 B 00068 3$: PUSHR #°M<R3,R24> + 0435 0 
65 0 FB 0 p CALLS #2, MCHECK_780 : 
18 8B 00071 4$ PUSHR #*M<R3,R4> + 0437 VAR 
000000006 00 02 FB O75 CALLS #2, MCHECK_750 ; 
18 BB 00078 S$: PUSHR #*M<R3,R4> + 0439 
000000006 00 02 FB 0007D CALLS #2, MCHECK_722 : 2 
04 0084 RET : é 
18 6B 00085 6$: PUSHR #*M<R3,R4> 3 0441 4 
000000006 00 02 FB 00087 CALLS #2, MCHECK_UV1 : 4 
04 OO08E 7$: RET : 0446 z 
; Routine Size: 143 bytes, Routine Base: $CODE + 0000 ; 
3: 163 0447 1 
: 164 0448 1 End ' Module 4 
: 165 0449 0 ELUDOM . 
2 
4 
4 
4 
4 
; PSECT SUMMARY 
3 Name Bytes Attributes ARR 
: SPLIT 24 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(3) 
: SCODE 143 NOVEC.NOWRT. RD. EXE.NOSHR, LCL. REL. CON, PIC.ALIGN(O) 
: Library Statistics 
BP es eee iets Sie en Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 


STR ai seek peo UESSSCHOM AEGIS WAGTDARMER RASS? af 
; .$255S0UA28:CSYSLIBILIB.L32;1 18619 23 0 1000 00:01.9 


3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MCHK_DISP/OBJ=0BJ$:MCHK_DISP MSRCS$:MCHK_DISP/UPDATE=(ENH$:MCHK_DISP) 
3; Size: 143 ode 5 + 24 data bytes 
3 me: 

; Fyseeee Time: sis i 

; nes/CPU Min 

3 Lenenes/CPU-Rin: 21 oY 


poe | Used: 84 pages 
; Compilation Complete 


pas 
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